00100	BEGIN "XX"
00200		PRELOAD_WITH 7,0,6,'440,'60,'24,'353,'34,'473,'24200;
00300		INTEGER ARRAY HEADER[0:9];
00400		INTEGER ARRAY BUFFER[1:'24200];
00500		INTEGER R,PTR,I,J;
00600	
00700		PTR ← POINT(6,BUFFER[1],-1);
00800		FOR R ← 1 STEP 1 UNTIL 54 DO
00900		FOR I ← 0 STEP 4 UNTIL 12 DO
01000		FOR J ← 1 STEP 1 UNTIL  72 DO
01100		IDPB(I,PTR);
01200	
01300		FOR R ← 1 STEP 1 UNTIL 54 DO
01400		FOR I ← 16 STEP 4 UNTIL 28 DO
01500		FOR J ← 1 STEP 1 UNTIL  72 DO
01600		IDPB(I,PTR);
01700		FOR R ← 1 STEP 1 UNTIL 54 DO
01800		FOR I ← 32 STEP 4 UNTIL 44 DO
01900		FOR J ← 1 STEP 1 UNTIL  72 DO
02000		IDPB(I,PTR);
02100		FOR R ← 1 STEP 1 UNTIL 54 DO
02200		FOR I ← 48 STEP 4 UNTIL 60 DO
02300		FOR J ← 1 STEP 1 UNTIL  72 DO
02400		IDPB(I,PTR);
02500	
02600	
02700		OPEN(1,"DSK",8,0,3,0,0,0);
02800		ENTER(1,"XXX.TMP[DAT,BGB]",0);
02900		ARRYOUT(1,HEADER[0],10);
03000		ARRYOUT(1,BUFFER[1],'24200);
03100		RELEASE(1);
03200	END;